Sub muestra_MsgBox()
    If MsgBox("Elige botn", _
    vbYesNo + vbExclamation + vbDefaultButton1, _
    "Ttulo de pruebas") = vbYes Then
        Debug.Print "Si"
    Else
        Debug.Print "No"
    End If
End Sub
